home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DOS.SWG / 0088_Warm-Cold Boot.pas < prev    next >
Pascal/Delphi Source File  |  1995-02-28  |  309b  |  20 lines
  1. { Boot system
  2.  If warm is true a warm boot is performed, else a cold boot }
  3. Procedure Boot (Warm:Boolean);
  4. Begin
  5. Asm
  6.   sti
  7.   cmp Warm, 0
  8.   je  @cold
  9.   mov AX, 0
  10.   jmp @boot
  11.  @cold:
  12.   mov AX, 1
  13.  @boot:
  14.   mov DS, AX
  15.   mov AX, 1234h
  16.   mov [0472h], AX
  17.  End;
  18. Inline ($EA/$00/$00/$FF/$FF);
  19. End;
  20.